unit MainDMUnt;

interface

uses
  SysUtils, Classes, DB, ADODB, Provider, DBClient;

type
  TMainDM = class(TDataModule)
    conn: TADOConnection;
    adsUser: TADODataSet;
    dspUser: TDataSetProvider;
    adsRole: TADODataSet;
    dspRole: TDataSetProvider;
    adoSQL: TADOQuery;
    adsUserRole: TADODataSet;
    dspUserRole: TDataSetProvider;
    adsGrant: TADODataSet;
    dspGrant: TDataSetProvider;
    adsRoleGrant: TADODataSet;
    dspRoleGrant: TDataSetProvider;
    adsBaseInfo: TADODataSet;
    dspBaseInfo: TDataSetProvider;
    adsBelieve: TADODataSet;
    dspBelieve: TDataSetProvider;
    adsTempCode: TADODataSet;
    dspTempCode: TDataSetProvider;
    adsVBelieve: TADODataSet;
    dspVBelieve: TDataSetProvider;
    adsServeStation: TADODataSet;
    dspServeStation: TDataSetProvider;
    adsVServeStation: TADODataSet;
    dspVServeStation: TDataSetProvider;
    adsCommunion: TADODataSet;
    dspCommunion: TDataSetProvider;
    adsCommunionDetail: TADODataSet;
    dspCommunionDetail: TDataSetProvider;
    adsVCommunion: TADODataSet;
    dspVCommunion: TDataSetProvider;
    procedure dspVCommunionUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspCommunionDetailUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspCommunionUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspVServeStationUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspServeStationUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure DataModuleCreate(Sender: TObject);
    procedure dspVBelieveUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspBelieveUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspBaseInfoUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspRoleGrantUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspGrantUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspUserRoleUpdateError(Sender: TObject;
      DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspUserUpdateError(Sender: TObject; DataSet: TCustomClientDataSet;
      E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
    procedure dspRoleUpdateError(Sender: TObject; DataSet: TCustomClientDataSet;
      E: EUpdateError; UpdateKind: TUpdateKind;
      var Response: TResolverResponse);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainDM: TMainDM;

implementation

{$R *.dfm}

procedure TMainDM.DataModuleCreate(Sender: TObject);
begin
  conn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(ParamStr(0)) + 'DB\data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=joshua';
end;

procedure TMainDM.dspBaseInfoUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspBelieveUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspCommunionUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspCommunionDetailUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspGrantUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspRoleGrantUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspRoleUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspServeStationUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspUserRoleUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspUserUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspVBelieveUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspVCommunionUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

procedure TMainDM.dspVServeStationUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  Raise E;
end;

end.
